home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 June / Software of the Month Club 1996 June.iso / mac / Education / Extended Calculator II / Calculator programs / Mirror drawer < prev    next >
Text File  |  1994-01-25  |  552b  |  26 lines
  1. a:=HMouse;
  2. b:=VMouse;
  3. while(not(button));
  4.     PPat(random(1,5));
  5.     x:=HMouse;
  6.     y:=VMouse;
  7.     line(a,b,x,y);
  8.     line(600-a,b,x,y);
  9.     line(a,300-b,x,y);
  10.     line(a,b,600-x,y);
  11.     line(a,b,x,300-y);
  12.     line(600-a,300-b,x,y);
  13.     line(600-a,b,600-x,y);
  14.     line(600-a,b,x,300-y);
  15.     line(a,300-b,600-x,y);
  16.     line(a,300-b,x,300-y);
  17.     line(a,b,600-x,300-y);
  18.     line(600-a,300-b,600-x,y);
  19.     line(600-a,300-b,x,300-y);
  20.     line(600-a,b,600-x,300-y);
  21.     line(a,300-b,600-x,300-y);
  22.     line(600-a,300-b,600-x,300-y);
  23.     a:=x;
  24.     b:=y;
  25. end;
  26.